home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / rjkpro_1 / shadecluster2oo.amos / shadecluster2oo.amosSourceCode
Encoding:
AMOS Source Code  |  1997-04-02  |  1.2 KB  |  57 lines
  1. '----------------------------------------------------
  2. '                 shade cluster v2.o 
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished 11/o4/1995 16:42:48
  10. '----------------------------------------------------  
  11.  
  12. _SHADECLUSTER
  13.  
  14. Procedure _SHADECLUSTER
  15.    
  16.    Screen Open 0,320,256,32,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Hide 
  20.    Cls 0
  21.    
  22.    Palette 0,$300,$500,$700,$900,$B00,$D00,$F00,$F10,$F30,$F40,$F60,$F70,$F90,$FA0,$FC0,$FE0,$FF0,$FF2,$FF3,$FF5,$FF6,$FF8,$FF9,$FFB,$FFC,$FFE,$FFF,$CCC,$AAA,$666
  23.    
  24.    Repeat 
  25.       
  26.       I=Rnd(3)
  27.       
  28.       If I=0
  29.          Inc X
  30.       Else If I=1
  31.          Dec X
  32.       Else If I=2
  33.          Inc Y
  34.       Else If I=3
  35.          Dec Y
  36.       End If 
  37.       
  38.       If X>160
  39.          X=X-320
  40.       Else If X<-160
  41.          X=320+X
  42.       End If 
  43.       
  44.       If Y>128
  45.          Y=Y-256
  46.       Else If Y<-128
  47.          Y=256+Y
  48.       End If 
  49.       
  50.       Plot 160+X,128+Y,Point(160+X,128+Y)+1
  51.       
  52.    Until Mouse Key<>0
  53.    
  54.    Fade 1
  55.    Wait 15
  56.    
  57. End Proc